From: Alex Schroeder <alex@gnu.org>
Date: Tue, 17 Jan 2006 10:04:38 +0000 (+0000)
Subject: (rmail-auto-file): Rewrote test for "filed" using
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~8790^2~158
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=4e30fe150e498ccdd4689e3285605fdaa1ebf0e3;p=emacs.git

(rmail-auto-file): Rewrote test for "filed" using
rmail-desc-get-keywords.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 227abc0d07d..e03e68bb37b 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2316,7 +2316,7 @@ iso-8859, koi8-r, etc."
 (defun rmail-auto-file ()
   "Automatically move a message into a sub-folder based on criteria.
 Called when a new message is displayed."
-  (if (or (rmail-message-labels-p rmail-current-message "filed")
+  (if (or (member "filed" (rmail-desc-get-keywords rmail-current-message))
 	  (not (string= (buffer-file-name)
 			(expand-file-name rmail-file-name))))
       ;; Do nothing if it's already been filed.